home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11b.d64 / exempl. werte (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  76 lines
  1. 10 REM ********************************
  2. 12 REM * KLIMA 64: EXEMPL. KLIMAWERTE *
  3. 14 REM ********************************
  4. 16 :
  5. 100 REM *** DATEN EINLESEN ************
  6. 102 QQ=10:DIMQQ$(QQ),T(QQ,12),N(QQ,12)
  7. 104 FORI=1TOQQ:READQQ$(I)
  8. 106 FORJ=1TO12:READT(I,J):NEXT
  9. 108 FORJ=1TO12:READN(I,J):NEXT
  10. 110 NEXT
  11. 112 Z$=CHR$(0)
  12. 114 :
  13. 200 REM *** DATEN SCHREIBEN ***********
  14. 202 POKE53280,6:POKE53281,6:PRINT"[147]"
  15. 204 PRINT" [203]LIMA 64: [197]XEMPLARISCHE [203]LIMAWERTE "
  16. 206 PRINT"[196]ATENDISKETTE EINLEGEN, [[210][197][212][213][210][206]]."
  17. 208 GETA$:IFA$<>CHR$(13)THEN208
  18. 210 :
  19. 212 OPEN1,8,15,"I"
  20. 214 OPEN2,8,2,"INDEX,P,W"
  21. 216 INPUT#1,A,A$,A1,A2:IFA=0THEN300
  22. 218 PRINT"[196]ATENDISKETTE MIT  0 [146] ERFASSTEN [207]RTEN"
  23. 220 PRINT"[207]RTEN EINLEGEN. [208]ROGRAMM NEU STARTEN."
  24. 222 CLOSE2:CLOSE1:PRINT:END
  25. 224 :
  26. 300 REM *** "INDEX" *******************
  27. 302 PRINT#2,QQ:PRINT"[201]NDEX SCHREIBEN:"
  28. 304 FORI=1TOQQ:PRINT"/";QQ$(I)
  29. 306 PRINT#2,QQ$(I):NEXT:CLOSE2
  30. 308 :
  31. 400 REM *** "DATEN" *******************
  32. 402 OPEN2,8,2,"DATEN,L,"+CHR$(38)
  33. 404 PRINT"[196]ATEN SCHREIBEN:":FORI=1TOQQ
  34. 406 PRINT#1,"P"+CHR$(I)+Z$+Z$
  35. 408 PRINT"/";QQ$(I):A$="":FORJ=1TO12
  36. 410 L=(N(I,J)AND255):H=INT(N(I,J)/256)
  37. 412 A$=A$+CHR$(50+T(I,J))
  38. 414 A$=A$+CHR$(L)+CHR$(H):NEXT
  39. 416 PRINT#2,A$
  40. 418 NEXT
  41. 420 CLOSE2:CLOSE1
  42. 422 PRINT"[211]CHREIBVORGANG BEENDET."
  43. 424 PRINT:END
  44. 426 :
  45. 500 REM *** KLIMAWERTE ****************
  46. 502 DATA "[193]ACHEN"
  47. 504 DATA 2,3,5,8,13,15,17,16,14,10,5,3
  48. 506 DATA 68,58,61,61,60,75,91,78,70,75,65,78
  49. 508 DATA "[211]TOCKHOLM"
  50. 510 DATA -3,-3,-1,3,9,14,17,15,12,6,2,-2
  51. 512 DATA 36,33,33,38,38,43,61,74,48,46,48,48
  52. 514 DATA "[208]ARIS"
  53. 516 DATA 2,4,6,10,13,17,18,18,15,10,6,3
  54. 518 DATA 35,36,39,41,49,56,50,48,49,58,47,44
  55. 520 DATA "[194]ARCELONA"
  56. 522 DATA 9,10,12,14,17,21,23,24,21,18,13,11
  57. 524 DATA 25,49,52,53,56,35,28,34,67,99,66,36
  58. 526 DATA "[204]ENINGRAD"
  59. 528 DATA -9,-8,-5,2,9,15,18,16,11,5,-2,-7
  60. 530 DATA 27,25,22,30,41,54,59,82,60,46,35,32
  61. 532 DATA "[203]ALKUTTA"
  62. 534 DATA 20,23,27,31,31,30,29,29,29,28,24,20
  63. 536 DATA 11,12,22,35,82,250,322,288,304,132,16,3
  64. 538 DATA "[208]EKING"
  65. 540 DATA -4,-2,6,13,21,24,27,25,21,13,4,-2
  66. 542 DATA 3,5,5,15,38,36,211,155,64,18,8,3
  67. 544 DATA "[208]ERTH"
  68. 546 DATA 23,23,22,19,16,14,13,13,14,16,19,22
  69. 548 DATA 8,10,20,43,130,180,170,143,86,56,20,15
  70. 550 DATA "[210]IO DE [202]ANEIRO"
  71. 552 DATA 26,26,25,24,22,21,21,21,21,22,23,24
  72. 554 DATA 127,114,140,107,84,58,46,48,66,86,104,140
  73. 556 DATA "[205]AC [205]URDO"
  74. 558 DATA -3,-9,-18,-23,-23,-25,-27,-29,-23,-20,-10,-4
  75. 560 DATA 11,4,6,6,13,5,5,11,12,8,6,7
  76.